New Star Software Collection/NSS_Collection.iso/3-181 ca-clipper 52d +exospace/1.ima/INSTALL.DAT

Text File | 1994-04-21 | 20KB | 688 lines

/****************************************************************/
/*  INSTALL.DAT                                                 */
/*                                                              */
/*  Copyright (c) 1993 Computer Associates International        */
/*  All Rights Reserved                                         */
/*                                                              */
/*  Last revision:   04/21/94                                   */
/****************************************************************/

@DefineProject
   @Group     = "A"
   @Requires  @HardDisk
   @Name      = "CA-Clipper 5.2d / ExoSpace 1.0f"
   @Version   = "5.2d"
   @OutDrive  = C
   @Subdir    = "\\CLIPPER5"
@EndProject

@DefineVars
   @Integer @InDisk  = 0      /* change for proper input disk type */
   @Integer @IsExo   = 1      /* is ExoSpace installed */
   @Dir @Bin           = "@SubDir\\BIN"
   @Dir @Include       = "@SubDir\\INCLUDE"
   @Dir @Lib           = "@SubDir\\LIB"
   @Dir @Obj           = "@SubDir\\OBJ"
   @Dir @Dbu           = "@SubDir\\SOURCE\\DBU"
   @Dir @Rl            = "@SubDir\\SOURCE\\RL"
   @Dir @Sys           = "@SubDir\\SOURCE\\SYS"
   @Dir @Sample        = "@SubDir\\SOURCE\\SAMPLE"
   @Dir @Ng            = "\\NG"
   @Dir @ExoBin        = "@SubDir\\BIN"
   @Dir @Error         = "@SubDir\\SOURCE\\ERROR"
   @Dir @Filesys       = "@SubDir\\SOURCE\\FILESYS"
   @Dir @Item          = "@SubDir\\SOURCE\\ITEM"
   @Dir @Sdx           = "@SubDir\\SOURCE\\SDX"
   @Dir @Vm            = "@SubDir\\SOURCE\\VM"
   @Qstring @NewLine   = "\n"
   @Qstring @Pkbkp     = "/O"
   @Qstring @InstName  = @Name

@EndVars

@Display
@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @InstName Patch
  █ Computer        █
  █  Associates     █     This program will upgrade the CA-Clipper
  █   International █     version 5.20, 5.2a, 5.2b or 5.2c files on
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█     your computer system to 5.2d. It will also
       ▄▄▄▄▄▄▄▄▄          upgrade CA-Clipper/Exospace to version 1.0f
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄       if ExoSpace is already installed on your
                          computer.  The basic steps in the procedure
                          are as follows:

                          ■ Specify target directories
                          ■ Install patch files to hard disk
                          ■ Execute patch files

                  Press Esc at any time to stop the installation.

                                       @Pause

@EndDisplay
@GetOption
@LocalWindow(9,38)
@Cls

@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @InstName Installation
  █ Computer        █
  █  Associates     █
  █   International █     Exit Patch and Perform a backup?
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄

                            @Option 10 = "Exit"
                            @Option 11 = "Continue"

@Newline

         You should backup your current versions of CA-Clipper 5.2 and
         ExoSpace (if it's installed) and remove any prior versions of
         CA-Clipper 5.2 from your CA-Clipper 5.2 directory structure
         before applying the CA-Clipper 5.2d upgrade patch.  If you
         have not backed up and removed any prior versions (as per the
         instructions contained in the 52DUS.TXT file) yet, you should
         exit this installation, perform a backup and restart the patch
         process.

@EndOption

@If ( 10 [= @Option )
   @Exit ()
@Endif


DrivePick:
@GetOutDrive
@Suppress A
@Suppress B
@LocalWindow(11,36)
@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @InstName Installation
  █ Computer        █
  █  Associates     █     Select Target Drive:
  █   International █
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄









     Use  and  to highlight the drive where CLIPPER 5.2 is installed,
     then press ─┘ to continue. Press Esc to exit.

@EndOutDrive

@GetSubdir
@LocalWindow(7,56)
@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @InstName Installation
  █ Computer        █
  █  Associates     █     Select Clipper 5.2 Directory:
  █   International █
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄






     Type the directory name where CLIPPER 5.2 is installed, then
     press ─┘ to continue. Press Esc to exit.

@EndSubdir

@GetOption
@LocalWindow(8,40)
@Cls

@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @InstName Installation
  █ Computer        █
  █  Associates     █
  █   International █     Do you have ExoSpace installed?
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄

                            @Option 50 = "  Yes  "
                            @Option 51 = "  No   "



@Newline

    Select 'Yes' if you have CA-Clipper/ExoSpace installed.  You will be
    prompted for the directory name where EXOSPACE.EXE is installed.
    You should NOT press 'Yes' if you do not have ExoSpace installed on
    your computer.

@EndOption

@If ( 51 [= @Option )
   @IsExo = 0
   @InstName = "CA-Clipper 5.2d"
@Endif

@If ( @IsExo != 0 )
@GetSubdir @ExoBin
@LocalWindow(7,56)
@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @InstName Installation
  █ Computer        █
  █  Associates     █     Select ExoSpace.EXE Directory
  █   International █
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄






     Type a directory name, and press ─┘ to continue. Press Esc to exit.

@EndSubdir
@Endif

@GetOption
@LocalWindow(7,40)
@Cls

@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @InstName Installation
  █ Computer        █
  █  Associates     █     Patch files in the following directories?
  █   International █
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
                            @Option 101 = "  Yes  "
                            @Option 102 = "  No   "
@Move(9,1)
                         Executables  =>  @Subdir\BIN
                         Libraries    =>  @Subdir\LIB
                         Header files =>  @SubDir\INCLUDE
                         Obj files    =>  @SubDir\OBJ
                         Norton guide =>  \NG
@If ( @IsExo != 0 )
   @Move(14,1)
                         ExoSpace.EXE =>  @ExoBin
@Endif


      Select 'Yes' to proceed with patch installation using directories
      shown above.  If you select 'No', you will be prompted for each
      of the above directories.
@EndOption

@Bin = "@Subdir\\Bin"
@Lib = "@Subdir\\Lib"
@Include = "@Subdir\\Include"
@Obj = "@Subdir\\Obj"
@Ng = "\\NG"

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Bin" ) ) )
GetBinPath:
  @GetSubdir @Bin
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the BIN directory, then
                press ─┘ to continue.  Press Esc to exit.

  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Bin" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Bin" ) ) / 2, "@OutDrive:@Bin DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetBinPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Lib" ) ) )
GetLibPath:
  @GetSubdir @Lib
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the LIB directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Lib" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Lib" ) ) / 2, "@OutDrive:@Lib DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetLibPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Include" ) ) )
GetIncludePath:
  @GetSubdir @Include
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the INCLUDE directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Include" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Include" ) ) / 2, "@OutDrive:@Include DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetIncludePath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Obj" ) ) )
GetObjPath:
  @GetSubdir @Obj
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the OBJ directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Obj" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Obj" ) ) / 2, "@OutDrive:@Obj DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetObjPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Ng" ) ) )
GetNgPath:
  @GetSubdir @Ng
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the NG directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Ng" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Ng" ) ) / 2, "@OutDrive:@Ng DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetNgPath
  @Endif
@EndIf

@If ( @IsExo != 0 )
@If ( ( 102 [= @Option ) || ( ! @Exists( "@OutDrive:@ExoBin\\EXOSPACE.EXE" ) ) )
GetExoBinPath:
  @GetSubdir @ExoBin
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the ExoSpace.EXE directory, then
                press ─┘ to continue.  Press Esc to exit.

  @EndSubdir

  @If ( ! @Exists( "@OutDrive:@ExoBin\\EXOSPACE.EXE" ) )
    @Display
    @Move( 12, ( 53 - @StrLen( "@OutDrive:@ExoBin" ) ) / 2, "@OutDrive:@ExoBin\\EXOSPACE.EXE (LINKER) NOT FOUND" )
    @Move( 16, 10 )
                                       @Pause
    @EndDisplay
    @Goto GetExoBinPath
  @Endif
@Endif
@Endif

@GetOption
@LocalWindow(6,40)
@Cls

@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @InstName Installation
  █ Computer        █
  █  Associates     █     Patch files in the following directories?
  █   International █
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
                            @Option 201 = "  Yes  "
                            @Option 202 = "  No   "
@Move(8,1)
                         Dbu files          =>  @Subdir\SOURCE\DBU
                         RL files           =>  @Subdir\SOURCE\RL
                         Sys files          =>  @Subdir\SOURCE\SYS
                         Sample files       =>  @Subdir\SOURCE\SAMPLE
                         Error API sample   =>  @Subdir\SOURCE\ERROR
                         Filesys API sample =>  @Subdir\SOURCE\FILESYS
                         Item API sample    =>  @Subdir\SOURCE\ITEM
                         SDX API sample     =>  @Subdir\SOURCE\SDX
                         VM API sample      =>  @Subdir\SOURCE\VM

      Select 'Yes' to proceed with patch installation using directories
      shown above.  If you select 'No', you will be prompted for each
      of the above directories.
@EndOption

@Dbu = "@Subdir\\Source\\Dbu"
@Rl = "@Subdir\\Source\\Rl"
@Sys = "@Subdir\\Source\\Sys"
@Sample = "@Subdir\\Source\\Sample"
@Error = "@Subdir\\Source\\Error"
@Filesys = "@Subdir\\Source\\Filesys"
@Item = "@Subdir\\Source\\Item"
@Sdx = "@Subdir\\Source\\Sdx"
@Vm = "@Subdir\\Source\\Vm"

@If ( ( 202 [= @Option ) || ( ! @DirExists( "@OutDrive:@Dbu" ) ) )
GetDbuPath:
  @GetSubdir @Dbu
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the DBU directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Dbu" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Dbu" ) ) / 2, "@OutDrive:@Dbu DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetDbuPath
  @Endif
@Endif

@If ( ( 202 [= @Option ) || ( ! @DirExists( "@OutDrive:@Rl" ) ) )
GetRlPath:
  @GetSubdir @Rl
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the RL directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Rl" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Rl" ) ) / 2, "@OutDrive:@Rl DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetRlPath
  @Endif
@Endif

@If ( ( 202 [= @Option ) || ( ! @DirExists( "@OutDrive:@Sys" ) ) )
GetSysPath:
  @GetSubdir @Sys
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the SYS directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Sys" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Sys" ) ) / 2, "@OutDrive:@Sys DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetSysPath
  @Endif
@Endif

@If ( ( 202 [= @Option ) || ( ! @DirExists( "@OutDrive:@Sample" ) ) )
GetSamplePath:
  @GetSubdir @Sample
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the SAMPLE directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Sample" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Sample" ) ) / 2, "@OutDrive:@Sample DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetSamplePath
  @Endif
@Endif

@If ( 202 [= @Option )
  @Goto GetErrorPath
@Elseif ( ( 201 [= @Option ) || ( ! @DirExists( "@OutDrive:@Error" ) ) )
MakeErrorDir:
    @MkDir( "@OutDrive:@Error" )
    @If ( ! @DirExists( "@OutDrive:@Error" ) )
      @Display
      @Move( 12, ( 53 - @StrLen( "@Error" ) ) / 2, "CAN NOT CREATE @OutDrive:@Error DIRECTORY" )
      @Move( 16, 1 )
                                       @Pause
      @EndDisplay

GetErrorPath:
        @GetSubdir @Error
        @LocalWindow(9,48)
        @Move(12,1)
                Enter the path to the ERROR directory, then
                press ─┘ to continue.  Press Esc to exit.

        @EndSubdir
        @Goto MakeErrorDir
    @Endif
@Endif

@If ( 202 [= @Option )
  @Goto GetFilesysPath
@Elseif ( ( 201 [= @Option ) || ( ! @DirExists( "@OutDrive:@Filesys" ) ) )
MakeFilesysDir:
    @MkDir( "@OutDrive:@Filesys" )
    @If ( ! @DirExists( "@OutDrive:@Filesys" ) )
      @Display
      @Move( 12, ( 53 - @StrLen( "@Filesys" ) ) / 2, "CAN NOT CREATE @OutDrive:@Filesys DIRECTORY" )
      @Move( 16, 1 )
                                       @Pause
      @EndDisplay

GetFilesysPath:
        @GetSubdir @Filesys
        @LocalWindow(9,48)
        @Move(12,1)
                Enter the path to the FILESYS directory, then
                press ─┘ to continue.  Press Esc to exit.

        @EndSubdir
        @Goto MakeFilesysDir
    @Endif
@Endif

@If ( 202 [= @Option )
  @Goto GetItemPath
@Elseif ( ( 201 [= @Option ) || ( ! @DirExists( "@OutDrive:@Item" ) ) )
MakeItemDir:
    @MkDir( "@OutDrive:@Item" )
    @If ( ! @DirExists( "@OutDrive:@Item" ) )
      @Display
      @Move( 12, ( 53 - @StrLen( "@Item" ) ) / 2, "CAN NOT CREATE @OutDrive:@Item DIRECTORY" )
      @Move( 16, 1 )
                                       @Pause
      @EndDisplay

GetItemPath:
        @GetSubdir @Item
        @LocalWindow(9,48)
        @Move(12,1)
                Enter the path to the ITEM directory, then
                press ─┘ to continue.  Press Esc to exit.

        @EndSubdir
        @Goto MakeItemDir
    @Endif
@Endif

@If ( 202 [= @Option )
  @Goto GetSdxPath
@Elseif ( ( 201 [= @Option ) || ( ! @DirExists( "@OutDrive:@Sdx" ) ) )
MakeSdxDir:
    @MkDir( "@OutDrive:@Sdx" )
    @If ( ! @DirExists( "@OutDrive:@Sdx" ) )
      @Display
      @Move( 12, ( 53 - @StrLen( "@Sdx" ) ) / 2, "CAN NOT CREATE @OutDrive:@Sdx DIRECTORY" )
      @Move( 16, 1 )
                                       @Pause
      @EndDisplay

GetSdxPath:
        @GetSubdir @Sdx
        @LocalWindow(9,48)
        @Move(12,1)
                Enter the path to the SDX directory, then
                press ─┘ to continue.  Press Esc to exit.

        @EndSubdir
        @Goto MakeSdxDir
    @Endif
@Endif

@If ( 202 [= @Option )
  @Goto GetVmPath
@Elseif ( ( 201 [= @Option ) || ( ! @DirExists( "@OutDrive:@Vm" ) ) )
MakeVmDir:
    @MkDir( "@OutDrive:@Vm" )
    @If ( ! @DirExists( "@OutDrive:@Vm" ) )
      @Display
      @Move( 12, ( 53 - @StrLen( "@Vm" ) ) / 2, "CAN NOT CREATE @OutDrive:@Vm DIRECTORY" )
      @Move( 16, 1 )
                                       @Pause
      @EndDisplay

GetVmPath:
        @GetSubdir @Vm
        @LocalWindow(9,48)
        @Move(12,1)
                Enter the path to the VM directory, then
                press ─┘ to continue.  Press Esc to exit.

        @EndSubdir
        @Goto MakeVmDir
    @Endif
@Endif

  @DefineDisk
     @Label = "Update Disk"

     @BeginLib 52DINC.LIF
       @FILE *.* @Out @OutDrive:@Include
     @EndLib

     @BeginLib 52DOBJ.LIF
       @FILE *.* @Out @OutDrive:@Obj
     @EndLib

     @BeginLib 52DRL.LIF
       @FILE *.* @Out @OutDrive:@Rl
     @EndLib

     @BeginLib 52DDBU.LIF
       @FILE *.* @Out @OutDrive:@Dbu
     @EndLib

     @BeginLib 52DSAMPL.LIF
       @FILE *.* @Out @OutDrive:@Sample
     @EndLib

     @BeginLib 52DSYS.LIF
       @FILE *.* @Out @OutDrive:@Sys
     @EndLib

     @BeginLib 52DERROR.LIF
       @FILE *.* @Out @OutDrive:@Error
     @EndLib

     @BeginLib 52DFISYS.LIF
       @FILE *.* @Out @OutDrive:@Filesys
     @EndLib

     @BeginLib 52DITEM.LIF
       @FILE *.* @Out @OutDrive:@Item
     @EndLib

     @BeginLib 52DSDX.LIF
       @FILE *.* @Out @OutDrive:@Sdx
     @EndLib

     @BeginLib 52DVM.LIF
       @FILE *.* @Out @OutDrive:@Vm
     @EndLib

  @EndDisk

@Finish
@Cls

@SPAWN("PATCH @OutDrive:@Bin CLP52BIN /NOBACKUP /NOSUBDIRSEARCH /NOPATHSEARCH")
                                       @Pause

@SPAWN("PATCH @OutDrive:@Lib CLP52LIB /NOBACKUP /NOSUBDIRSEARCH /NOPATHSEARCH")
                                       @Pause

@SPAWN("PATCH @OutDrive:@Ng CLP52NG /NOBACKUP /NOSUBDIRSEARCH /NOPATHSEARCH")
                                       @Pause

@If ( @IsExo != 0 )

@SPAWN("PATCH @OutDrive:@ExoBin EXO10F /NOBACKUP /NOSUBDIRSEARCH /NOPATHSEARCH")
                                       @Pause

@SPAWN("PATCH @OutDrive:@Ng EXNG-10F /NOBACKUP /NOSUBDIRSEARCH /NOPATHSEARCH")
                                       @Pause

@Endif

@ChDrive(@StartUpDrive)
@ChDir("@StartupDir")

  @Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @InstName Installation
  █ Computer        █
  █  Associates     █     CA-Clipper 5.2d has been installed on your
  █   International █     computer. Before using the product, view the
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█     52DUS.TXT file using your word processor or
       ▄▄▄▄▄▄▄▄▄          the DOS TYPE command. This file contains the
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄       latest product information as well as
                          instructions on how to re-compile DBU, RL,
                          PE and the pre-linked libraries.



IMPORTANT:
   In order to ensure that the CA-Clipper 5.2d / ExoSpace 1.0f patch
   has been successfully installed, you should compare the date and
   time stamps of the updated files against the file list in the
   52DUS.TXT file.  If you have encountered a problem that you are
   unable to correct, call your CA-Clipper Level-I Technical Support
   representative.

@Pause
@EndFinish